home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / ts viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  57 lines
  1. 10 poke56,32:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 poke53281,0:poke53280,0:print"[147]"
  4. 30 gosub300
  5. 45 gosub400
  6. 50 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 60 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  8. 70 poke251,32:poke252,64:poke253,96:sys51456
  9. 85 geta$:ifa$=""then85
  10. 90 gosub300
  11. 110 print"     1.[154] [202]ust show the picture.
  12. 120 [153]"     2.cont (NULL)wap title pictures
  13. 160 print"     3.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  14. 220 [151]198,0
  15. 230 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]230
  16. 232 [139]a$[178]"3"[167]40000
  17. 234 [139]a$[178]"2"[167][141]500
  18. 280 [158]51459
  19. 282 [151]198,0
  20. 284 [161]a$:[139]a$[178]""[167]284
  21. 286 [158]51459
  22. 290 [137]220
  23. 300 [151]53281,0:[151]53280,0:[153]"loadfor          (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  24. 310 [153]"      (NULL)right$(NULL)(NULL)val (NULL)len(NULL)valval(NULL) (NULL)right$val(NULL)val(NULL)/(NULL)(NULL)right$(NULL)(NULL)val(NULL)
  25. 320 return
  26. 400 print"[159]   [201]t has occurred to me that the
  27. 402 [153]"title picture for (NULL)(NULL) #108 may be
  28. 404 print"considered sexist since it implies that
  29. 406 [153]"only men are (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) readers.
  30. 410 print"   [212]herefore [201] have placed another
  31. 412 [153]"picture on the disk that you can use in
  32. 414 print"place of the sexist one.  [202]ust choose
  33. 416 [153]"(NULL)ption 2 -- with (NULL)ide (NULL)ne of (NULL)(NULL) #108
  34. 418 print"(or a copy) in your current drive.
  35. 420 [153]"    (NULL)hank you for your patience in
  36. 422 print"these delicate times.
  37. 424 [153]"cont              ascender (NULL)ucker
  38. 426 print"              [217]r [200]mb [197]dtr
  39. 428 [153]"sys       (NULL)ress any key for menu"
  40. 432 [142]
  41. 500 [151]214,14:[153]:[153]"sys(NULL)ut (NULL)ide (NULL)ne, (NULL)(NULL) #108 in the drive
  42. 502 print"and press a key.
  43. 504 [161]a$:[139]a$[178]""[167]504
  44. 506 [151]781,15:[158]59903:[151]781,17:[158]59903
  45. 508 [159]15,dv,15,"r0:temp=intro.shp"
  46. 510 [152]15,"r0:intro.shp=intro2.shp":[152]15,"r0:intro2.shp=temp":[160]15
  47. 520 [158]57812"intro.shp",dv,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
  48. 530 [151]251,32:[151]252,64:[151]253,96:[158]51456
  49. 540 [142]
  50. 700 :[151]781,0:[151]782,192:[158]65493
  51. 10000 [159]15,8,15,"s0:ts viewer":[160]15:[148]"ts viewer",8:[128]
  52. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  53. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  54. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
  55. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  56. 40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
  57.